COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(72),MM(2)
C00004 ENDMK
C⊗;
	DIMENSION I(72),MM(2)
	DATA LA/"605004020100/,LZ/"751004020100/,MAG/"200000000000/
CC	DOUBLE PRECISION LL,N
	EQUIVALENCE (MM,LL)
	TYPE 1
	ACCEPT 2,I
1	FORMAT(' TYPE '/)
2	FORMAT(72A1)
3	FORMAT(1X10A5)
	M=1
  	DO 5  K=1,72
	NN=I(K)
	IF(NN.GE.LA.AND.NN.LE.LZ)I(K)=NN-MAG
C ABOVE CHANGES LOWER CASE LETTERS TO UPPER.
	IF(NN.NE.'.'.AND.NN.NE.' '.AND.NN.NE.';')GO TO 5
	L=1
	LL=0
	DO 4 KK=M,K-1
	N=I(KK).AND."774000000000
	LL=(N/L).OR.LL
4	L=L*"200
	IF(K-M.EQ.5)GO TO 5
C NOW PUT IN TRAILING BLANKS
	DO 6 KK=K,5-K+M  
	N=' '.AND."774000000000
	LL=(N/L).OR.LL
6	L=L*"200
	M=K+1
	TYPE 3,LL
7	CONTINUE
5	CONTINUE
	END